00100		SUBROUTINE RDWRT
00200	C TO READ AND RWITE TONE-ROW LIBRARY FILE
00300		COMMON INV(12),IR(12),N(12),J(13,13),ISCAL(12),IS2(12),
00400		1 INP2(72),INP(72),NRW
00500		1,IC(6),ISQ(25,25),NAME(10),INOT(49),JA(12)
00510	15	TYPE 10
00520		ACCEPT 2,NM
00600		IF(NM.EQ.' ')NM='ROWS'
00650		IF(NRW.EQ.'R')GO TO 1
00700	CC	IF(LOOKD(NM))GO TO 1
00710	C 'LOOKD' LOOKS FOR .DAT FILE -- 'LOOK' LOOKS FOR NO EXT.
00800		CALL OFILE(1,NM)
00900		WRITE(1,2)NAME
01000		WRITE(1,3)INP2
01100		END FILE 1
01200		RETURN
01300	2	FORMAT(10A5)
01400	3	FORMAT(72A1)
01410	5	FORMAT(1X10A5)
01420	6	FORMAT(/' DO YOU WANT THIS ONE?  '$)
01430	7	FORMAT(I,10A5)
01480	8	FORMAT(I,72A1)
01490	10	FORMAT(' TYPE FILE NAME-- '$)
01495	11	FORMAT(' TYPE IDENTITY NAME  '$)
01500	1	CALL IFILE(1,NM)
01510		TYPE 11
01520		I=-1
01530		ACCEPT 2,(INP(M),M=1,10)
01540		IF(INP(1).EQ.' ')GO TO 4
01550	C  <CR> TO GO THROUGH ALL NAMES.
01560		NM=INP(1)+INP(2)
01570		I=0
01600	4	READ(1,7,END=9)M,NAME
01700		IF(M.LT.99)REREAD 2,NAME
01705		IF(NAME(1).EQ.' ')GO TO 4
01707	C  SO IT WILL IGNORE BLANK LINES (1ST 5 CHARS.)
01710		IF(I)GO TO 12
01720		IF(NM.EQ.NAME(1)+NAME(2))GO TO 12
01730		M='N'
01740		GO TO 14
01800	12	TYPE 5,NAME
01900	13	TYPE 6
02000		ACCEPT 3,M
02300	14	READ(1,8)L,INP2
02400		IF(L.LT.99)REREAD 1,INP2
02600		IF(M.NE.'Y')GO TO 4
02700		RETURN
02750	9	TYPE 90
02775	90	FORMAT(' --- NAME NOT FOUND! -----'/)
02787		GO TO 15
02800		END